home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / genial / ui / guide_files / display.G < prev    next >
Encoding:
Text File  |  1992-07-14  |  6.5 KB  |  238 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   ctrlwin
  6.     :owner                  nil
  7.     :width                  427
  8.     :height                 184
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Display Control"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 nil
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  ctrlwin
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  427
  30.     :height                 184
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :message
  42.     :name                   message2
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      12
  46.     :y                      16
  47.     :width                  34
  48.     :height                 13
  49.     :foreground-color       ""
  50.     :label                  "Note:"
  51.     :label-type             :string
  52.     :label-bold             t
  53.     :initial-state          :active
  54.     :event-handler          nil
  55.     :user-data              ()
  56.     :actions                ()
  57. )
  58. (
  59.     :type                   :message
  60.     :name                   message1
  61.     :owner                  controls1
  62.     :help                   ""
  63.     :x                      24
  64.     :y                      44
  65.     :width                  379
  66.     :height                 13
  67.     :foreground-color       ""
  68.     :label                  "These settings affect only the DISPLAY image, not the dataset."
  69.     :label-type             :string
  70.     :label-bold             nil
  71.     :initial-state          :active
  72.     :event-handler          nil
  73.     :user-data              ()
  74.     :actions                ()
  75. )
  76. (
  77.     :type                   :slider
  78.     :name                   gamma
  79.     :owner                  controls1
  80.     :help                   ""
  81.     :x                      16
  82.     :y                      80
  83.     :width                  253
  84.     :height                 20
  85.     :value-x                77
  86.     :value-y                80
  87.     :slider-width           150
  88.     :ticks                  0
  89.     :foreground-color       ""
  90.     :label                  "Contrast:"
  91.     :label-type             :string
  92.     :layout-type            :horizontal
  93.     :orientation            :horizontal
  94.     :show-endboxes          t
  95.     :show-range             nil
  96.     :show-value             nil
  97.     :min-value              0
  98.     :max-value              100
  99.     :min-value-string       ""
  100.     :max-value-string       ""
  101.     :min-tick-string        ""
  102.     :max-tick-string        ""
  103.     :initial-value          0
  104.     :initial-state          :active
  105.     :notify-handler         gamma_proc
  106.     :event-handler          nil
  107.     :user-data              ()
  108.     :actions                (
  109.         (
  110.         :from                   (ctrlwin gamma)
  111.         :when                   (Notify )
  112.         :to                     (ctrlwin gamma)
  113.         :function_type          CallFunction
  114.         :arg_type               ()
  115.         :action                 (gamma_proc)
  116.         )
  117.     )
  118. )
  119. (
  120.     :type                   :text-field
  121.     :name                   cmap_min
  122.     :owner                  controls1
  123.     :help                   ""
  124.     :x                      16
  125.     :y                      108
  126.     :width                  108
  127.     :height                 15
  128.     :value-x                53
  129.     :value-y                108
  130.     :value-length           4
  131.     :stored-length          8
  132.     :rows                   3
  133.     :foreground-color       ""
  134.     :text-type              :numeric
  135.     :label                  "Min:"
  136.     :label-type             :string
  137.     :layout-type            :horizontal
  138.     :value-underlined       t
  139.     :max-value              100
  140.     :min-value              0
  141.     :initial-value          0
  142.     :initial-state          :active
  143.     :read-only              nil
  144.     :notify-handler         cm_min_proc
  145.     :event-handler          nil
  146.     :user-data              ()
  147.     :actions                (
  148.         (
  149.         :from                   (ctrlwin cmap_min)
  150.         :when                   (Notify )
  151.         :to                     (ctrlwin cmap_min)
  152.         :function_type          CallFunction
  153.         :arg_type               ()
  154.         :action                 (cm_min_proc)
  155.         )
  156.     )
  157. )
  158. (
  159.     :type                   :text-field
  160.     :name                   cmap_max
  161.     :owner                  controls1
  162.     :help                   "Minimun values for color map.
  163. "
  164.     :x                      140
  165.     :y                      108
  166.     :width                  109
  167.     :height                 15
  168.     :value-x                178
  169.     :value-y                108
  170.     :value-length           4
  171.     :stored-length          8
  172.     :rows                   3
  173.     :foreground-color       ""
  174.     :text-type              :numeric
  175.     :label                  "Max:"
  176.     :label-type             :string
  177.     :layout-type            :horizontal
  178.     :value-underlined       t
  179.     :max-value              100
  180.     :min-value              0
  181.     :initial-value          0
  182.     :initial-state          :active
  183.     :read-only              nil
  184.     :notify-handler         cm_max_proc
  185.     :event-handler          nil
  186.     :user-data              ()
  187.     :actions                (
  188.         (
  189.         :from                   (ctrlwin cmap_max)
  190.         :when                   (Notify )
  191.         :to                     (ctrlwin cmap_max)
  192.         :function_type          CallFunction
  193.         :arg_type               ()
  194.         :action                 (cm_max_proc)
  195.         )
  196.     )
  197. )
  198. (
  199.     :type                   :setting
  200.     :name                   shrink_fac
  201.     :owner                  controls1
  202.     :help                   ""
  203.     :x                      16
  204.     :y                      144
  205.     :width                  145
  206.     :height                 23
  207.     :value-x                117
  208.     :value-y                144
  209.     :rows                   0
  210.     :columns                1
  211.     :layout-type            :horizontal
  212.     :foreground-color       ""
  213.     :setting-type           :stack
  214.     :selection-required     t
  215.     :label                  "Shrink Factor:"
  216.     :label-type             :string
  217.     :notify-handler         shrink_proc
  218.     :event-handler          nil
  219.     :choices                ("1" "2" "4" "8" )
  220.     :choice-label-types     (:string :string :string :string )
  221.     :choice-colors          ("" "" "" "" )
  222.     :choice-defaults        (nil nil nil nil )
  223.     :initial-selections     (nil nil nil nil )
  224.     :initial-state          :active
  225.     :user-data              ()
  226.     :actions                (
  227.         (
  228.         :from                   (ctrlwin shrink_fac)
  229.         :when                   (Notify )
  230.         :to                     (ctrlwin shrink_fac)
  231.         :function_type          CallFunction
  232.         :arg_type               ()
  233.         :action                 (shrink_proc)
  234.         )
  235.     )
  236. )
  237. )
  238.